home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / mb37081.lsp < prev    next >
Text File  |  1998-03-15  |  2KB  |  61 lines
  1. ;=============370.81 STELLFUSS 5
  2.  
  3. (EAITDBL "0037081")
  4. (EAITmsg "mb_mld10" "\n" "002" nil) (princ "........") (princ EAITnrx) (princ "\n")
  5. (princ)
  6.  
  7. (defun C:37081S1 (/ P0 P1 P2 P3 P4 P5 P6 P7 P8 P9 E1 E2 E3 E4 E5 E6 H Hx R
  8.                     BName)
  9.    (EAITDBL "0037081")
  10.    (princ (strcat "\n\n" EAITbez1))
  11.    (EAITvari)
  12.    (EAITvars)
  13.    (EAITbpt nil nil nil)
  14.    (setq P1 (getpoint))
  15.    (if (= P1 nil)(setq P1 (EAITrpt)))
  16.    (EAITmsg "mb_mld10" "\n" "024" nil)(EAITmsg "mb_mld10" nil "031" " ")   ;Versatz: <+20> 
  17.    (setq R (getreal))
  18.    (if (= R nil)(setq P1 (list (+ (car P1) 10) (cadr P1)))(setq P1 (list (+ (car P1) R) (cadr P1)))  )
  19.    (initget (+ 2 4))
  20.    (EAITmsg "mb_mld10" nil "025" nil)(EAITmsg "mb_mld10" nil "032" " ")   ;Höhe: <35> 
  21.    (setq H (getdist))
  22.    (if (= H nil)(setq H 20))
  23.    (setq H (EAITck H))
  24.    (if (= H 20)(setq H 13)(setq H (- H 7)) )
  25.    (setvar "OSMODE" 0)
  26.  
  27.    (setq P2 (list (- (car P1) 2.5)(cadr P1))
  28.          P3 (list (car P2) (- (cadr P2) H))
  29.          P4 (list (+ (car P1) 2.5)(cadr P2))
  30.          P5 (list (car P4)(cadr P3))
  31.          P6 (list (- (car P1) 1.9)(cadr P2))
  32.          P7 (list (car P6) (cadr P3))
  33.          P8 (list (+ (car P1) 1.9)(cadr P6))
  34.          P9 (list (car P8)(cadr P7))
  35.    )
  36.    (command EAITege (strcat EAITpfn "37081u1") (list (car P1)(- (cadr P1)(+ H 7))) "" "" "")
  37.    (setq E1 (entlast))
  38.    (command EAITlay EAITlse "EAIT50" ""
  39.             EAITlin P2 P3 ""
  40.             EAITlin P4 P5 ""
  41.             EAITlay EAITlse "EAIT25" ""
  42.             EAITlin P6 P7 ""
  43.             EAITlin P8 P9 ""
  44.    )
  45.    (setq SS1 (EAITSS E1))
  46.  
  47.    (setq BName (EAITbnr))
  48.    (command EAITblo BName P1 SS1 ""
  49.             EAITege BName P1 "" "" "")
  50.  
  51.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (list (car P1)(- (cadr P1)(+ H 7))) (EAITgib 45) 6) "" "" ""
  52.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  53.    )
  54.  
  55.    (EAITvarz2)
  56.    (princ)
  57. )
  58.  
  59. (princ)
  60.  
  61.